home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / comm / tlxhints.zip / NEWKEYS.SCR < prev    next >
Text File  |  1989-03-15  |  625b  |  44 lines
  1. N NEWKEYS.COM
  2. A
  3. JMP    013A        ;Jmp initialize
  4. DW    0,0
  5. CMP    AH,00        ;NewInt16:
  6. JZ    0115        ;Jmp GetKey
  7. CMP    AH,01
  8. JZ    0121        ;Jmp GetStatus
  9. CS:
  10. JMP    FAR [0102]    ;Jmp OldInt16
  11. MOV    AH,10        ;GetKeY:
  12. PUSHF
  13. CS:
  14. CALL    FAR [0102]    ;Call OldInt16
  15. CALL    0131        ;Call Fixup
  16. IRET
  17. MOV    AH,11        ;GetStatus
  18. PUSHF
  19. CS:
  20. CALL    FAR [0102]    ;Call OldInt16
  21. JZ    012E
  22. CALL    0131        ;Call FixUp:
  23. RETF    0002
  24. CMP    AL,E0        ;FixUp
  25. JNZ    0139
  26. SUB    AL,AL
  27. CMP    AL,01
  28. RET
  29. MOV    AX,3516        ;Initialize
  30. INT    21        ;Get OldInt16
  31. MOV    [0102],BX    ;Save it
  32. MOV    [0104],ES
  33. MOV    DX,0106
  34. MOV    AX,2516
  35. INT    21        ;Set NewInt16
  36. MOV    DX,013A
  37. INT    27        ;Stay Resident
  38.  
  39. RCX
  40. 54
  41. W
  42. Q
  43.  
  44.